home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.10 Oct 90 / NewToolBox.π / NewToolBox.Lib / Library.Txt < prev    next >
Encoding:
Text File  |  1989-09-07  |  2.2 KB  |  103 lines  |  [TEXT/KAHL]
  1. ;-------------------------------
  2. ; ******   Include Files  ******
  3. ;------------------------------- 
  4.  
  5. INCLUDE Traps.D
  6. INCLUDE ToolEquX.D
  7. INCLUDE SysErrX.D
  8. INCLUDE SysEquX.D
  9. INCLUDE QuickEquX.D      
  10. INCLUDE PackMacs.Txt      
  11.  
  12. ;-------------------------------
  13. ; *******   Constants  *********
  14. ;------------------------------- 
  15.  
  16.     NIL             EQU 0
  17.     TRUE            EQU $0101
  18.     FALSE           EQU $0000 
  19.  
  20.  
  21. ;-------------------------------
  22. ; *****    Wind AuxRec   *******
  23. ;-------------------------------   
  24.     
  25.     Worigin            EQU 0        
  26.     WContRect     EQU 4       
  27.     WactivTxt     EQU 12       
  28.     WactivLst     EQU 16     
  29.     Wgrow         EQU 20      
  30.     WPrintRec     EQU 22      
  31.     WindProc      EQU 26
  32.     WvRefNum      EQU 30 
  33.     WAuxRefC      EQU 32
  34.     WText            EQU 36
  35.     WList          EQU 40 
  36.     WPic          EQU 44     
  37.  
  38.     SizeWindRec  EQU 156  
  39.     SizeAuxWind  EQU  48
  40.     
  41. ;---------------------------------
  42. ; *******   List AuxRec  *********
  43. ;---------------------------------
  44.     
  45.     SizeListAuxRec  EQU 14
  46.     LID                EQU 0
  47.     theList            EQU 2
  48.     nextList        EQU 6
  49.     fontList        EQU 10
  50.     sizList            EQU 12
  51.  
  52. ;---------------------------------
  53. ; *******   Text AuxRec  *********
  54. ;--------------------------------- 
  55.     
  56.     SizeTEAuxRec    EQU  10
  57.     TID               EQU  0
  58.     theText         EQU  2
  59.     nextText        EQU  6
  60.  
  61. ;-------------------------------
  62. ; *******   Pic AuxRec  ********
  63. ;------------------------------- 
  64.    
  65.     SizePicAuxRec   EQU 20
  66.     PID                EQU 0
  67.     thePic            EQU 2
  68.     nextPic            EQU 6
  69.     tMode            EQU 10
  70.     destRect        EQU 12
  71.  
  72. ;-------------------------------
  73. ;   ****  Control  AuxRec  ****
  74. ;------------------------------- 
  75.  
  76.      SizeCtrlAuxRec   EQU 6
  77.      contrlID          EQU 0
  78.      contrlProc          EQU 2
  79.      
  80. ;---------------------------------
  81. ; *******     New TE    *********
  82. ;---------------------------------
  83.  
  84.     .TRAP _TEStylNew    $A83E
  85.     .TRAP _TEDispatch      $A83D
  86.     
  87.     .MACRO  _GetStylHandle
  88.         MOVE.W #4,-(SP)
  89.         _TEDispatch
  90.     .ENDM
  91.     
  92.     .MACRO  _SetStylHandle
  93.         MOVE.W #5,-(SP)
  94.         _TEDispatch
  95.     .ENDM
  96.  
  97. ;---------------------------------
  98. ; *******   Externals    *********
  99. ;---------------------------------
  100.  
  101. XREF CurrentText,CurrentList
  102.  
  103. ;-------------------------------